FitWelLAB

Auteur
Affiliation

Dr Philippe MICHEL

USRC - Hôpital NOVO

Impact de la section associative et sportive Section Athlé-NOVO sur le bien-être au travail des agents de l’hôpital NOVO

Code
library(tidyverse)
library(readODS)
library(labelled)

# Import data
tt <- read_ods("datas/fitweb.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(age = 2024 - anne_naissance) |>
  mutate(
    trajet = fct_relevel(
      trajet,
      "Moins de 10 min",
      "Entre 11 et 20 min",
      "Entre 21 et 30 min",
      "Entre 31 et 45 min",
      "Plus de 45 min"
    )
  ) |>
  mutate(across(ends_with("h_j"), ~ as.numeric(hms(.x)) / 60)) |>
  mutate(temps_assis =  as.numeric(hms(temps_assis)) / 60)

bnom <- c(
  "ID",
  "Année de naissance",
  "Sexe",
  "Temps de trajet",
  "Raison de l'adhésion",
  "Activités intenses",
  "Activités intenses",
  "Activités modérées",
  "Activités modérées",
  "Marche",
  "Marche",
  "Temps assis",
  "Âge"
)

var_label(tt) <- bnom
#
save(tt, file = "datas/fitw.RData")
load("datas/fitw.RData")


tt0 <- read_ods("datas/M0.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(temps = "M0")

tt3 <- read_ods("datas/M3.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(temps = "M3")

tt7 <- read_ods("datas/M7.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  mutate(temps = "M7")
#
#---------------------------------
#

lyk <- function(df, n1, n2, lv) {
  df <- df |>
    mutate(across(n1:n2, ~ factor(.x, levels = lv))) |>
    mutate(across(n1:n2, ~ fct_relevel(.x, lv)))
  return(df)
}
#
#---------------------------------
#
lv1 <- c("très bon(ne)",
         "bon(ne)",
         "ni bon(ne), ni mauvais(e)",
         "mauvais(e)")
lv2 <- c(
  "tous les jours ou presque",
  "1 ou 2 fois par semaine",
  "1 ou 2 fois par mois",
  "1 ou 2 fois depuis 6 mois",
  "jamais depuis 6 mois"
)
lv3 <- c("en permanence", "souvent", "parfois", "rarement", "jamais")
lv4 <- c("très dur", "dur", "ni facile, ni dur", "facile", "très facile")
lv5 <- c(
  "largement insuffisantes",
  "plutôt insuffisantes",
  "adaptées",
  "plus importantes que nécessaire",
  "largement plus importantes que nécessaire"
)
lv6 <- c(
  "me contrarie fortement",
  "ne me convient pas" ,
  "je fais avec",
  "me convient",
  "contribue à mon épanouissement"
)
lv7 <- c("non",
         "pas du tout",
         "plutôt non",
         "ni oui",
         "ni non",
         "plutôt oui",
         "oui, tout à fait")
lvf <- c(
  "Très satisfait(e)",
  "Plutôt satisfait(e)",
  "Plutôt insatisfait(e)",
  "Très insatisfait(e)"
)
satin <-  rbind(tt0, tt3)
satin <- rbind(satin, tt7) |>
  lyk(n1 = 13, n2 = 16, lv = lv1) |>
  lyk(n1 = 18, n2 = 25, lv = lv2) |>
  lyk(n1 = 26, n2 = 28, lv = lv3) |>
  lyk(n1 = 29, n2 = 32, lv = lv4) |>
  lyk(n1 = 33, n2 = 36, lv = lv5) |>
  lyk(n1 = 37, n2 = 75, lv = lv6) |>
  lyk(n1 = 76, n2 = 77, lv = lv7)
#
#---------------------------------
#

final <- read_ods("datas/final.ods", sheet = 1) |>
  janitor::clean_names() |>
  mutate(across(where(is.character), as.factor)) |>
  lyk(n1 = 3, n2 = 14, lv = lvf)
#
bn <- read_ods("datas/nomsatin.ods", sheet = 1)
var_label(satin) <- bn$value
bn <- read_ods("datas/nomfinal.ods", sheet = 1)
var_label(final) <- bn$fn
# 

save(tt, satin, final, file = "datas/fitw.RData")
load("datas/fitw.RData")
Code
rm(list = ls())
#
library(baseph)
library(tidyverse)
library(gtsummary)
library(kableExtra)
library(apyramid)
library(labelled)
library(scales)
library(visdat)
library(GGally)
library(ggstats)
library(ggsci)
library(plotly)
library(tidytext)
library(readODS)
#
theme_gtsummary_language(language = "fr", decimal.mark = ",")
options(OutDec = ",")
#
load("datas/fitw.RData")
expx <- TRUE
nfic <- "fitw2.ods"
#
cat <- list(all_continuous() ~ "wilcox.test",
            all_categorical() ~ "chisq.test")
affl <- list(all_categorical() ~ "{n}/{N} ({p})")
Code
htht <- function(aa, exp, nomfich, nomsheet) {
    if (exp) {
      aa |>
        as_tibble() |>
        write_ods(path = nomfich, sheet = nomsheet, append = TRUE)
    } 
aa <- aa |>
bold_labels() |> 
as_kable_extra(addtl_fmt = FALSE, escape = TRUE) |>
kable_material(c("striped", "hover"))
return(aa)
}


likph <- function(df,nn, titre = ""){
xx <-  df |> 
  dplyr::select(nn) |> 
  ggstats::gglikert() +
  labs(title = titre) +
  theme_light() +
  scale_fill_jama() +
  theme(
    plot.title = element_text(size = 14, face = "bold"),
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
  axis.text.x = element_text(size = 10),
  axis.text.y = element_text(size = 10),
  legend.position = "bottom"
  )
ggplotly(xx) 
}

Investigateur Principal : Djeneba CAMARA

Chef de projet : Mathilde WLODARCZYK

Données démographiques

Code
tt |> 
  dplyr::select(age,sexe,trajet) |> 
  tbl_summary(type = list(age~"continuous")) |> 
   modify_header(label ~ " ") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "demog") 
Table 1: Données démographiques
N = 10
Âge 43 (30 – 45)
Sexe
Féminin 6 (60%)
Masculin 4 (40%)
Temps de trajet
Moins de 10 min 1 (10%)
Entre 11 et 20 min 5 (50%)
Entre 21 et 30 min 1 (10%)
Entre 31 et 45 min 1 (10%)
Plus de 45 min 2 (20%)
1 Médiane (Q1 – Q3); n (%)
Code
xx <- tt |> 
  mutate(age = cut(age,
  include.lowest = TRUE, c(20, 30, 40, 50, 60)))|> 
age_pyramid(age_group = age, split_by = sexe) +
  labs(title = "Pyramide des âges",
      x = "",
      y = "",
      caption = "",
      fill = "") +
  theme_light() +
  scale_fill_jama() +
  theme(
    plot.title = element_text(size = 14, face = "bold"),
    plot.subtitle = element_text(size = 12),
    axis.title.x = element_text(size = 12),
    legend.title = element_text(size = 12),
    axis.title.y = element_text(
      size = 12,
      angle = 0,
      vjust = .5
    ),
  axis.text.x = element_text(size = 12),
  axis.text.y = element_text(size = 12),
  legend.position = "right"
  )
ggplotly(xx)
Figure 1: Pyramide des âges

Activité physique

En jours par semaine

Code
tt |> 
  dplyr::select(ends_with("_j_sem"), "temps_assis") |>
  tbl_summary(type = list(temps_assis~"continuous")) |> 
    modify_header(label ~ "Jours/Semaine") |>
    bold_labels()|> 
  htht(exp = expx, nomfich = nfic , nomsheet = "actsem")  |> 
   scroll_box(width = "800px", height = "800px")
Table 2: Activité physique (Jours/semaine)
Jours/Semaine N = 10
Activités intenses
0 1 (10%)
1 2 (20%)
2 4 (40%)
3 2 (20%)
4 1 (10%)
Activités modérées
0 2 (20%)
2 4 (40%)
3 1 (10%)
4 1 (10%)
7 2 (20%)
Marche
1 2 (20%)
2 2 (20%)
3 2 (20%)
7 4 (40%)
Temps assis 600 (360 – 1 440)
1 n (%); Médiane (Q1 – Q3)

En heures par jour

Code
tt |> 
  dplyr::select(ends_with("_h_j")) |>
  tbl_summary(
    type = everything() ~ "continuous"
  ) |> 
    modify_header(label ~ "Minutes/Jour") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "actjour")
Table 3: Activité physique par jour
Minutes/Jour N = 10
Activités intenses 100 (60 – 180)
Activités modérées 150 (60 – 300)
Marche 60 (45 – 420)
1 Médiane (Q1 – Q3)

Raisons de l’adhésion

Les réponses sont données par rapport au nombre total d’items notés en sachant qu’il peut y en avoir plusieurs pour chaque participant.

Code
zz <- tt|> 
  separate_rows(raison_adhesion, sep = ";") |> 
  mutate(raison_adhesion = factor(raison_adhesion)) |> 
  dplyr::filter(raison_adhesion != "") |> 
  mutate(raison_adhesion = fct_infreq(raison_adhesion)) |>
  mutate(raison_adhesion = fct_lump_n(raison_adhesion, 6, other_level = "Autres"))
var_label(zz$raison_adhesion) <- "Raison de l'adhésion"

zz |>
  dplyr::select(raison_adhesion) |> 
  tbl_summary() |>
  modify_header(label ~ "") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "raison")
Table 4: Raisons de l’adhésion
N = 77
Raison de l'adhésion
Pratiquer une activité physique en groupe 9 (12%)
Pratiquer une activité physique régulière 9 (12%)
Bienfaits sur la condition physique 8 (10%)
Evacuer le stress 8 (10%)
L'implication du personnel dans la création de la section 6 (7,8%)
Bénéfices sur le bien-être 5 (6,5%)
Me muscler 5 (6,5%)
Me sentir mieux dans mon corps 5 (6,5%)
Rencontrer de nouvelles personnes 5 (6,5%)
Autres 17 (22%)
1 n (%)
Code
sat0 <- satin |> 
  dplyr::filter(temps == "M0")

ncas <- nrow(sat0)

L’étude porte sur 7 cas.

VOTRE SITUATION PERSONNELLE et PROFESSIONNELLE

Code
 sat0 |> 
  dplyr::select(sexe:anciennete_dans_le_poste_actuel) |> 
  tbl_summary() |> 
   modify_header(label ~ " ") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "sat00init") 
Table 5: Données démographiques
N = 7
sexe
Féminin 5 (71%)
Masculin 2 (29%)
age
entre 25 et 34 ans 2 (29%)
entre 35 et 44 ans 4 (57%)
entre 45 et 54 ans 1 (14%)
categorie socioprofessionnelle
cadre 2 (29%)
employé(e) de bureau 3 (43%)
technicien(ne) 2 (29%)
ouvrier(e) 0 (0%)
assimilé(e) cadre 0 (0%)
horaires postes
autre type de poste 3 (43%)
non 4 (57%)
travail le week end
exceptionnellement 3 (43%)
jamais 2 (29%)
régulièrement 2 (29%)
travail la nuit
exceptionnellement 2 (29%)
jamais 3 (43%)
régulièrement 2 (29%)
horaires de travail non réguliers
exceptionnellement 1 (14%)
jamais 2 (29%)
presque toujours 1 (14%)
régulièrement 3 (43%)
horaires de travail non continus dans la journée
jamais 7 (100%)
exceptionnellement 0 (0%)
amplitude horaire
10h 1 (14%)
12h 2 (29%)
8h 1 (14%)
9h 3 (43%)
10,12,8 0 (0%)
anciennete dans l'entreprise
entre 1 et 5 ans 1 (14%)
entre 16 et 25 ans 2 (29%)
entre 6 et 15 ans 4 (57%)
26 ans et plus 0 (0%)
anciennete dans le poste actuel
entre 1 et 5 ans 3 (43%)
entre 6 et 15 ans 2 (29%)
moins d’un an 2 (29%)
1 n (%)

Vous & votre santé

Code
 sat0 |> 
  dplyr::select(13:16) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat011")
Table 6: Vous & votre santé
très bon(ne) bon(ne) ni bon(ne), ni mauvais(e) mauvais(e)
je trouve que ma santé est globalement 0 (0%) 6 (86%) 1 (14%) 0 (0%)
je trouve que mon moral est globalement 0 (0%) 5 (71%) 2 (29%) 0 (0%)
ma confiance en l'avenir est globalement 0 (0%) 4 (57%) 2 (29%) 1 (14%)
par rapport à l'année derniere ma santé est 1 (14%) 4 (57%) 2 (29%) 0 (0%)
Code
likph(sat0, 13:16,"Vous & votre santé")
Figure 2: Vous & votre santé
Code
 sat0 |> 
  dplyr::select(17) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat012")
Table 7: Vous & votre santé
oui, tout à fait plutôt oui ni oui, ni non
dans 2 ans ma santé devrait me permettre d'occuper le même poste qu’aujourd hui 5 (71%) 2 (29%) 0 (0%)
Code
likph(sat0, 17,"Vous & votre santé")
Figure 3: Vous & votre santé
Code
 sat0 |> 
  dplyr::select(18:25) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat013")
Table 8: Vous & votre santé
tous les jours ou presque 1 ou 2 fois par semaine 1 ou 2 fois par mois 1 ou 2 fois depuis 6 mois jamais depuis 6 mois
J'ai des difficultés à dormir 0 (0%) 1 (14%) 3 (43%) 1 (14%) 2 (29%)
J'ai des douleurs dans la poitrine 0 (0%) 0 (0%) 0 (0%) 0 (0%) 7 (100%)
J'ai des douleurs dans le dos ou dans le cou 0 (0%) 2 (29%) 1 (14%) 3 (43%) 1 (14%)
J'ai des douleurs dans les bras épaule coude poignet main 0 (0%) 1 (14%) 1 (14%) 2 (29%) 3 (43%)
J'ai des douleurs dans les jambes hanche genou cheville pied 0 (0%) 0 (0%) 2 (29%) 3 (43%) 2 (29%)
J'ai des maux de tête 1 (14%) 0 (0%) 3 (43%) 2 (29%) 1 (14%)
J'ai des problemes de digestion 0 (0%) 2 (29%) 1 (14%) 2 (29%) 2 (29%)
jai des douleurs quand je fais certains gestes ou dans certaines postures 0 (0%) 0 (0%) 3 (43%) 2 (29%) 2 (29%)
Code
likph(sat0, 18:25,"Vous & votre santé")
Figure 4: Vous & votre santé
Code
 sat0 |> 
  dplyr::select(26:28) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat014")
Table 9: Vous & votre santé
en permanence souvent parfois rarement jamais
je me sens lessivé par mon travail 0 (0%) 2 (29%) 4 (57%) 1 (14%) 0 (0%)
je me sens stressé par mon travail 0 (0%) 3 (43%) 4 (57%) 0 (0%) 0 (0%)
je sens que je craque à cause de mon travail 0 (0%) 1 (14%) 2 (29%) 3 (43%) 1 (14%)
Code
likph(sat0, 26:28,"Vous & votre santé")
Figure 5: Vous & votre santé

Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS

Code
 sat0 |> 
  dplyr::select(29:32) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat021")
Table 10: Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS
très dur dur ni facile, ni dur facile très facile
concernant les connaissances ou compétences que je dois utiliser 0 (0%) 4 (57%) 3 (43%) 0 (0%) 0 (0%)
concernant les efforts de réflexion ou d'attention que je dois fournir 0 (0%) 4 (57%) 3 (43%) 0 (0%) 0 (0%)
concernant les efforts physiques que je dois fournir 0 (0%) 1 (14%) 2 (29%) 2 (29%) 2 (29%)
concernant les efforts que je dois fournir pour contrôler mes émotions ne pas m’énerver ne pas craquer m’entendre avec les autres 1 (14%) 4 (57%) 2 (29%) 0 (0%) 0 (0%)
Code
likph(sat0, 29:32,"Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS")
Figure 6: Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS
Code
 sat0 |> 
  dplyr::select(33:36) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat022")
Table 11: Face aux exigeances de mon travail
largement insuffisantes plutôt insuffisantes adaptées plus importantes que nécessaire largement plus importantes que nécessaire
mes capacites à contrôler mes emotions sont 0 (0%) 0 (0%) 7 (100%) 0 (0%) 0 (0%)
mes capacites de réflexion ou d'attention sont 0 (0%) 0 (0%) 6 (86%) 1 (14%) 0 (0%)
mes capacites physiques sont 0 (0%) 0 (0%) 5 (71%) 1 (14%) 1 (14%)
mes connaissances ou compétences sont 0 (0%) 0 (0%) 7 (100%) 0 (0%) 0 (0%)
Code
likph(sat0, 33:36,"Face aux exigeances de mon travail")
Figure 7: Face aux exigeances de mon travail

Les CARACTERISTIQUES de VOTRE ENVIRONNEMENT de TRAVAIL

Code
 sat0 |> 
  dplyr::select(37:42) |>
  tbl_likert() |> 
  modify_header(label ~ "Environnement physique") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "")
Table 12: Environnement physique
Environnement physique me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement mon environnement physique de travail 0 (0%) 0 (0%) 2 (29%) 5 (71%) 0 (0%)
l'aménagement des lieux ou je travaille 0 (0%) 1 (14%) 3 (43%) 3 (43%) 0 (0%)
l'aspect general des lieux ou je travaille 0 (0%) 2 (29%) 1 (14%) 3 (43%) 1 (14%)
la pris en compte des risques liés à mon travail 0 (0%) 0 (0%) 4 (57%) 3 (43%) 0 (0%)
le materiel dont je dispose pour travailler adapté 0 (0%) 0 (0%) 4 (57%) 3 (43%) 0 (0%)
les caractéristiques physiques de mon environnement de travail 0 (0%) 1 (14%) 4 (57%) 2 (29%) 0 (0%)
Code
likph(sat0, 37:42, "Environnement physique")
Figure 8: Environnement physique
Code
 sat0 |> 
  dplyr::select(43:49) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat032")
Table 13: Cadrage de l’activité
Cadrage de l’activité me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement ce que je fais dans mon travail exigences varieté utilité 0 (0%) 0 (0%) 1 (14%) 4 (57%) 2 (29%)
l'interêt que je trouve dans mon travail 0 (0%) 1 (14%) 0 (0%) 3 (43%) 3 (43%)
l'utilité de ce que je fais 0 (0%) 0 (0%) 1 (14%) 3 (43%) 3 (43%)
la diversité des contacts que mon travail entraine 0 (0%) 0 (0%) 1 (14%) 3 (43%) 3 (43%)
la qualité des relations que J'ai avec les personnes exterieures à l'entreprise 0 (0%) 0 (0%) 1 (14%) 4 (57%) 2 (29%)
la varieté de ce que je fais dans mon travail 0 (0%) 0 (0%) 2 (29%) 4 (57%) 1 (14%)
les responsabilités qui me sont donnees 0 (0%) 0 (0%) 2 (29%) 5 (71%) 0 (0%)
Code
likph(sat0, 43:49, "Cadrage de l’activité")
Figure 9: Cadrage de l’activité
Code
 sat0 |> 
  dplyr::select(50:62) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat033")
Table 14: Cadrage de l’activité
Cadrage de l’activité me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement le cadrage de mon activité 0 (0%) 1 (14%) 3 (43%) 3 (43%) 0 (0%)
l'aide que je recois pour mener à bien mon travail 0 (0%) 1 (14%) 3 (43%) 3 (43%) 0 (0%)
la clarté des informations que l'on me donne pour réaliser mon travail 0 (0%) 0 (0%) 4 (57%) 3 (43%) 0 (0%)
la cohérence des informations précisant ce que l'on attend de moi 0 (0%) 0 (0%) 3 (43%) 4 (57%) 0 (0%)
la coherence entre ce que je fais et la définition de mon poste 0 (0%) 0 (0%) 2 (29%) 5 (71%) 0 (0%)
la liberté d'adapter mon rythme de travail 0 (0%) 3 (43%) 1 (14%) 3 (43%) 0 (0%)
la liberté que J'ai dans la maniere de réaliser mon travail 0 (0%) 0 (0%) 2 (29%) 4 (57%) 1 (14%)
la maniere dont l'equipe est dirigée 0 (0%) 1 (14%) 5 (71%) 1 (14%) 0 (0%)
le soutien moral que je peux recevoir au travail 0 (0%) 1 (14%) 2 (29%) 3 (43%) 1 (14%)
les deéais dont je dispose pour faire mon travail 0 (0%) 2 (29%) 1 (14%) 4 (57%) 0 (0%)
les interruptions qui ont lieu dans mon travail 0 (0%) 3 (43%) 4 (57%) 0 (0%) 0 (0%)
les liens de éependance de complementarité entre mon travail et celui des autres personnes 0 (0%) 1 (14%) 1 (14%) 5 (71%) 0 (0%)
les possibilités de savoir si mon travail est de qualité ou non 0 (0%) 1 (14%) 2 (29%) 4 (57%) 0 (0%)
Code
likph(sat0, 50:62, "Cadrage de l’activité")
Figure 10: Cadrage de l’activité
Code
 sat0 |> 
  dplyr::select(63:75) |>
  tbl_likert() |> 
  modify_header(label ~ "Contexte organisationnel") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat034")
Table 15: Contexte organisationnel
Contexte organisationnel me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement le contexte organisationnel 0 (0%) 2 (29%) 2 (29%) 3 (43%) 0 (0%)
l'ambiance qui règne dans l'entreprise 0 (0%) 1 (14%) 2 (29%) 2 (29%) 2 (29%)
la communication de l'entreprise sur ses choix et ses objectifs 0 (0%) 3 (43%) 2 (29%) 2 (29%) 0 (0%)
la manière dont je peux évoluer dans l'entreprise 0 (0%) 1 (14%) 1 (14%) 4 (57%) 1 (14%)
la maniére dont les avis des personnes sont pris en compte dans l'entreprise 0 (0%) 3 (43%) 1 (14%) 3 (43%) 0 (0%)
la manière dont les personnes sont traitées dans l'entreprise 0 (0%) 3 (43%) 1 (14%) 3 (43%) 0 (0%)
le niveau de securité d'emploi dans l'entreprise 0 (0%) 0 (0%) 1 (14%) 4 (57%) 2 (29%)
le nombre d'heures que je consacre à mon travail 0 (0%) 1 (14%) 3 (43%) 3 (43%) 0 (0%)
les évolutions de l'entreprise et du secteur 0 (0%) 2 (29%) 3 (43%) 2 (29%) 0 (0%)
les modalités d'évaluation de mon travail 0 (0%) 1 (14%) 4 (57%) 2 (29%) 0 (0%)
les possibilités de développer mes compétences 0 (0%) 1 (14%) 1 (14%) 4 (57%) 1 (14%)
ma rémuneration 0 (0%) 1 (14%) 3 (43%) 2 (29%) 1 (14%)
mes horaires de travail 0 (0%) 1 (14%) 3 (43%) 2 (29%) 1 (14%)
Code
likph(sat0, 63:75, "Contexte organisationnel")
Figure 11: Contexte organisationnel

VOTRE APPRÉCIATION GÉNÉRALE sur VOTRE TRAVAIL

Code
 sat0 |> 
  dplyr::select(76:77) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat041")
Table 16: Appréciation générale
non pas du tout plutôt non ni oui ni non plutôt oui oui, tout à fait
globalement je me sens bien dans l'entreprise 0 (0%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 4 (67%) 2 (33%)
J'aime mon travail 0 (0%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 1 (17%) 5 (83%)
Code
likph(sat0, 76:77, "Appréciation générale")
Figure 12: Appréciation générale
Code
sat7 <- satin |> 
  dplyr::filter(temps == "M7")

ncas <- nrow(sat7)

L’étude porte sur 6 cas. En raison du faible nombre de réponse aucun graphique n’est traçable.

Vous & votre santé

Code
 sat7 |> 
  dplyr::select(13:16) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat711")
Table 17: Vous & votre santé
très bon(ne) bon(ne) ni bon(ne), ni mauvais(e) mauvais(e)
je trouve que ma santé est globalement 1 (17%) 3 (50%) 2 (33%) 0 (0%)
je trouve que mon moral est globalement 1 (17%) 3 (50%) 2 (33%) 0 (0%)
ma confiance en l'avenir est globalement 1 (17%) 4 (67%) 1 (17%) 0 (0%)
par rapport à l'année derniere ma santé est 3 (50%) 2 (33%) 1 (17%) 0 (0%)
Code
 sat7 |> 
  dplyr::select(17) |> 
  tbl_likert() |> 
    modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat712")
Table 18: Vous & votre santé
oui, tout à fait plutôt oui ni oui, ni non
dans 2 ans ma santé devrait me permettre d'occuper le même poste qu’aujourd hui 5 (83%) 1 (17%) 0 (0%)
Code
 sat7 |> 
  dplyr::select(18:25) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
    htht(exp = expx, nomfich = nfic , nomsheet = "sat713")
Table 19: Vous & votre santé
tous les jours ou presque 1 ou 2 fois par semaine 1 ou 2 fois par mois 1 ou 2 fois depuis 6 mois jamais depuis 6 mois
J'ai des difficultés à dormir 0 (0%) 1 (17%) 1 (17%) 2 (33%) 2 (33%)
J'ai des douleurs dans la poitrine 0 (0%) 0 (0%) 0 (0%) 1 (17%) 5 (83%)
J'ai des douleurs dans le dos ou dans le cou 1 (17%) 1 (17%) 0 (0%) 3 (50%) 1 (17%)
J'ai des douleurs dans les bras épaule coude poignet main 1 (17%) 1 (17%) 0 (0%) 1 (17%) 3 (50%)
J'ai des douleurs dans les jambes hanche genou cheville pied 0 (0%) 0 (0%) 1 (17%) 0 (0%) 5 (83%)
J'ai des maux de tête 0 (0%) 0 (0%) 1 (17%) 4 (67%) 1 (17%)
J'ai des problemes de digestion 1 (17%) 1 (17%) 0 (0%) 3 (50%) 1 (17%)
jai des douleurs quand je fais certains gestes ou dans certaines postures 0 (0%) 1 (17%) 0 (0%) 3 (50%) 2 (33%)
Code
 sat7 |> 
  dplyr::select(26:28) |> 
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat714")
Table 20: Vous & votre santé
en permanence souvent parfois rarement jamais
je me sens lessivé par mon travail 0 (0%) 2 (33%) 2 (33%) 1 (17%) 1 (17%)
je me sens stressé par mon travail 0 (0%) 2 (33%) 1 (17%) 2 (33%) 1 (17%)
je sens que je craque à cause de mon travail 0 (0%) 0 (0%) 2 (33%) 2 (33%) 2 (33%)

Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS

Code
 sat7 |> 
  dplyr::select(29:32) |>
  tbl_likert() |> 
  modify_header(label ~ "Mon travail est") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat721")
Table 21: Les EXIGENCES de VOTRE TRAVAIL et VOS CAPACITÉS
Mon travail est très dur dur ni facile, ni dur facile très facile
concernant les connaissances ou compétences que je dois utiliser 0 (0%) 3 (50%) 3 (50%) 0 (0%) 0 (0%)
concernant les efforts de réflexion ou d'attention que je dois fournir 1 (17%) 3 (50%) 2 (33%) 0 (0%) 0 (0%)
concernant les efforts physiques que je dois fournir 0 (0%) 0 (0%) 2 (33%) 2 (33%) 2 (33%)
concernant les efforts que je dois fournir pour contrôler mes émotions ne pas m’énerver ne pas craquer m’entendre avec les autres 0 (0%) 1 (17%) 5 (83%) 0 (0%) 0 (0%)
Code
 sat7 |> 
  dplyr::select(33:36) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat722")
Table 22: Face aux exigeances de mon travail
largement insuffisantes plutôt insuffisantes adaptées plus importantes que nécessaire largement plus importantes que nécessaire
mes capacites à contrôler mes emotions sont 0 (0%) 1 (17%) 4 (67%) 1 (17%) 0 (0%)
mes capacites de réflexion ou d'attention sont 0 (0%) 0 (0%) 6 (100%) 0 (0%) 0 (0%)
mes capacites physiques sont 0 (0%) 0 (0%) 5 (83%) 0 (0%) 1 (17%)
mes connaissances ou compétences sont 0 (0%) 0 (0%) 6 (100%) 0 (0%) 0 (0%)

Les CARACTERISTIQUES de VOTRE ENVIRONNEMENT de TRAVAIL

Code
 sat7 |> 
  dplyr::select(37:42) |>
  tbl_likert() |> 
  modify_header(label ~ "Environnement physique") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat731")
Table 23: Environnement physique
Environnement physique me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement mon environnement physique de travail 0 (0%) 0 (0%) 1 (17%) 5 (83%) 0 (0%)
l'aménagement des lieux ou je travaille 0 (0%) 0 (0%) 2 (33%) 4 (67%) 0 (0%)
l'aspect general des lieux ou je travaille 0 (0%) 0 (0%) 2 (33%) 3 (50%) 1 (17%)
la pris en compte des risques liés à mon travail 0 (0%) 0 (0%) 2 (33%) 4 (67%) 0 (0%)
le materiel dont je dispose pour travailler adapté 0 (0%) 0 (0%) 2 (33%) 4 (67%) 0 (0%)
les caractéristiques physiques de mon environnement de travail 0 (0%) 0 (0%) 3 (50%) 3 (50%) 0 (0%)
Code
 sat7 |> 
  dplyr::select(43:49) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat732")
Table 24: Cadrage de l’activité
Cadrage de l’activité me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement ce que je fais dans mon travail exigences varieté utilité 0 (0%) 0 (0%) 0 (0%) 3 (50%) 3 (50%)
l'interêt que je trouve dans mon travail 0 (0%) 0 (0%) 0 (0%) 1 (17%) 5 (83%)
l'utilité de ce que je fais 0 (0%) 0 (0%) 0 (0%) 2 (33%) 4 (67%)
la diversité des contacts que mon travail entraine 1 (17%) 0 (0%) 0 (0%) 2 (33%) 3 (50%)
la qualité des relations que J'ai avec les personnes exterieures à l'entreprise 0 (0%) 0 (0%) 1 (17%) 3 (50%) 2 (33%)
la varieté de ce que je fais dans mon travail 0 (0%) 0 (0%) 0 (0%) 2 (33%) 4 (67%)
les responsabilités qui me sont donnees 0 (0%) 0 (0%) 1 (17%) 5 (83%) 0 (0%)
Code
 sat7 |> 
  dplyr::select(50:62) |>
  tbl_likert() |> 
  modify_header(label ~ "Cadrage de l’activité") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat733")
Table 25: Cadrage de l’activité
Cadrage de l’activité me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement le cadrage de mon activité 0 (0%) 1 (17%) 3 (50%) 1 (17%) 1 (17%)
l'aide que je recois pour mener à bien mon travail 0 (0%) 0 (0%) 2 (33%) 4 (67%) 0 (0%)
la clarté des informations que l'on me donne pour réaliser mon travail 0 (0%) 0 (0%) 3 (50%) 3 (50%) 0 (0%)
la cohérence des informations précisant ce que l'on attend de moi 0 (0%) 0 (0%) 3 (50%) 3 (50%) 0 (0%)
la coherence entre ce que je fais et la définition de mon poste 0 (0%) 0 (0%) 2 (33%) 4 (67%) 0 (0%)
la liberté d'adapter mon rythme de travail 0 (0%) 0 (0%) 1 (17%) 4 (67%) 1 (17%)
la liberté que J'ai dans la maniere de réaliser mon travail 0 (0%) 0 (0%) 1 (17%) 4 (67%) 1 (17%)
la maniere dont l'equipe est dirigée 0 (0%) 2 (33%) 3 (50%) 0 (0%) 1 (17%)
le soutien moral que je peux recevoir au travail 0 (0%) 0 (0%) 1 (17%) 3 (50%) 2 (33%)
les deéais dont je dispose pour faire mon travail 0 (0%) 0 (0%) 3 (50%) 3 (50%) 0 (0%)
les interruptions qui ont lieu dans mon travail 0 (0%) 1 (17%) 5 (83%) 0 (0%) 0 (0%)
les liens de éependance de complementarité entre mon travail et celui des autres personnes 0 (0%) 0 (0%) 0 (0%) 6 (100%) 0 (0%)
les possibilités de savoir si mon travail est de qualité ou non 0 (0%) 1 (17%) 1 (17%) 3 (50%) 1 (17%)
Code
 sat7 |> 
  dplyr::select(63:75) |>
  tbl_likert() |> 
  modify_header(label ~ "Contexte organisationnel") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat734")
Table 26: Contexte organisationnel
Contexte organisationnel me contrarie fortement ne me convient pas je fais avec me convient contribue à mon épanouissement
globalement le contexte organisationnel 0 (0%) 1 (17%) 1 (17%) 3 (50%) 1 (17%)
l'ambiance qui règne dans l'entreprise 0 (0%) 1 (17%) 3 (50%) 2 (33%) 0 (0%)
la communication de l'entreprise sur ses choix et ses objectifs 0 (0%) 1 (17%) 4 (67%) 0 (0%) 1 (17%)
la manière dont je peux évoluer dans l'entreprise 0 (0%) 0 (0%) 1 (17%) 2 (33%) 3 (50%)
la maniére dont les avis des personnes sont pris en compte dans l'entreprise 0 (0%) 2 (33%) 2 (33%) 2 (33%) 0 (0%)
la manière dont les personnes sont traitées dans l'entreprise 0 (0%) 2 (33%) 2 (33%) 2 (33%) 0 (0%)
le niveau de securité d'emploi dans l'entreprise 0 (0%) 0 (0%) 1 (17%) 2 (33%) 3 (50%)
le nombre d'heures que je consacre à mon travail 0 (0%) 0 (0%) 1 (17%) 3 (50%) 2 (33%)
les évolutions de l'entreprise et du secteur 0 (0%) 0 (0%) 1 (17%) 2 (33%) 3 (50%)
les modalités d'évaluation de mon travail 0 (0%) 0 (0%) 3 (50%) 3 (50%) 0 (0%)
les possibilités de développer mes compétences 0 (0%) 0 (0%) 1 (17%) 1 (17%) 4 (67%)
ma rémuneration 0 (0%) 1 (17%) 2 (33%) 3 (50%) 0 (0%)
mes horaires de travail 0 (0%) 0 (0%) 0 (0%) 4 (67%) 2 (33%)

VOTRE APPRÉCIATION GÉNÉRALE sur VOTRE TRAVAIL

Code
sat7 |> 
  dplyr::select(76:77) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "sat741")
Table 27: Appréciation générale
non pas du tout plutôt non ni oui ni non plutôt oui oui, tout à fait
globalement je me sens bien dans l'entreprise 0 (0%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 3 (50%) 3 (50%)
J'aime mon travail 0 (0%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 3 (50%) 3 (50%)

Objectifs

Code
final |> 
  dplyr::select(3:14) |>
  tbl_likert() |> 
  modify_header(label ~ " ") |> 
  htht(exp = expx, nomfich = nfic , nomsheet = "final1") |> 
   scroll_box(width = "150%", height = "900px")
Table 28: Appréciation générale
Très satisfait(e) Plutôt satisfait(e) Plutôt insatisfait(e) Très insatisfait(e)
de l’accessibilité à la communication avec la section 4 (80%) 0 (0%) 0 (0%) 1 (20%)
de l accessibilité des lieux d’entrainement 4 (80%) 0 (0%) 0 (0%) 1 (20%)
de l’accessibilité du comité directeur de la section 4 (80%) 0 (0%) 0 (0%) 1 (20%)
de l’adaptation de l’intervenant a mon niveau 4 (80%) 0 (0%) 0 (0%) 1 (20%)
de la diversité des lieux d’entrainement 3 (60%) 1 (20%) 1 (20%) 0 (0%)
de la facilité de compréhension des consignes 4 (80%) 0 (0%) 0 (0%) 1 (20%)
de la fréquence de la communication de la section 4 (80%) 0 (0%) 0 (0%) 1 (20%)
des consignes données 4 (80%) 0 (0%) 0 (0%) 1 (20%)
des fréquences des séances 4 (80%) 0 (0%) 0 (0%) 1 (20%)
des horaires des séances 2 (40%) 2 (40%) 1 (20%) 0 (0%)
des jours des séances 3 (60%) 1 (20%) 0 (0%) 1 (20%)
des types de séances course a pied marche nordique renforcement musculaire 3 (60%) 1 (20%) 0 (0%) 1 (20%)

é

Code
final |> 
  dplyr::select(3:14) |>
  ggstats::gglikert()
Figure 13: Appréciation générale

Objectifs atteints

Les réponses sont données par rapport au nombre total d’items notés en sachant qu’il peut y en avoir plusieurs pour chaque participant.

Code
zz <- str_split(final$objectifs_atteints, ";")
zz <-  as.factor(unlist(zz))
zz <-   tibble(zz)
zz <- dplyr::filter(zz, zz != "") |>
  mutate(zz = factor(zz)) |>
  mutate(zz = fct_infreq(zz)) |>
  mutate(zz = fct_lump_n(zz, 6, other_level = "Autres"))
var_label(zz) <- "Objectifs atteints"
zz |>
  tbl_summary() |>
  modify_header(label ~ "") |>
  htht(exp = expx, nomfich = nfic , nomsheet = "final2") 
Table 29: Objectifs atteints
N = 25
Objectifs atteints
Bienfaits sur la condition physique 4 (16%)
Pratiquer une activité physique en groupe 4 (16%)
Pratiquer une activité physique régulière 4 (16%)
Me muscler 3 (12%)
Me sentir mieux dans mon corps 3 (12%)
Rencontrer de nouvelles personnes 3 (12%)
Autres 4 (16%)
1 n (%)
Code
xx <- zz |> 
  ggplot() +
  aes(x = zz, fill = zz) +
  geom_bar(stat = "count") +
  labs(title = "Objectifs atteints",
      subtitle = "",
      x = "",
      y = "n") +
  theme_light() +
  scale_fill_jama() +
  theme(
    plot.title = element_text(size = 14, face = "bold"),
    plot.subtitle = element_text(size = 12),
    axis.title.x = element_blank(),
    legend.title = element_text(size = 12),
    axis.title.y = element_text(
      size = 12,
      angle = 0,
      vjust = .5
    ),
  axis.text.x = element_text(size = 12,            ,
      angle = 30,
      vjust = .5),
  axis.text.y = element_text(size = 12),
  legend.position = "none"
  ) +
  scale_x_discrete(labels = label_wrap(20))

ggplotly(xx)
Figure 14: Objectifs atteints

Réutilisation

MIT